home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / moving2a / bubble~1.frm next >
Text File  |  1999-09-05  |  5KB  |  182 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    BackColor       =   &H00FFFF00&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   3195
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   4215
  10.    ForeColor       =   &H00FFFF00&
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4215
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton Command1 
  17.       Caption         =   "&Start"
  18.       Height          =   375
  19.       Left            =   1560
  20.       TabIndex        =   1
  21.       Top             =   2760
  22.       Width           =   1575
  23.    End
  24.    Begin VB.Timer Timer1 
  25.       Interval        =   1
  26.       Left            =   0
  27.       Top             =   2760
  28.    End
  29.    Begin VB.Label Label4 
  30.       BackStyle       =   0  'Transparent
  31.       Caption         =   "D"
  32.       BeginProperty Font 
  33.          Name            =   "Franklin Gothic Book"
  34.          Size            =   48
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   975
  42.       Left            =   3600
  43.       TabIndex        =   4
  44.       Top             =   840
  45.       Width           =   615
  46.    End
  47.    Begin VB.Label Label3 
  48.       BackStyle       =   0  'Transparent
  49.       Caption         =   "e"
  50.       BeginProperty Font 
  51.          Name            =   "Franklin Gothic Book"
  52.          Size            =   48
  53.          Charset         =   0
  54.          Weight          =   400
  55.          Underline       =   0   'False
  56.          Italic          =   0   'False
  57.          Strikethrough   =   0   'False
  58.       EndProperty
  59.       Height          =   975
  60.       Left            =   2400
  61.       TabIndex        =   3
  62.       Top             =   840
  63.       Width           =   495
  64.    End
  65.    Begin VB.Label Label2 
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "e"
  68.       BeginProperty Font 
  69.          Name            =   "Franklin Gothic Book"
  70.          Size            =   48
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       Height          =   975
  78.       Left            =   1200
  79.       TabIndex        =   2
  80.       Top             =   840
  81.       Width           =   495
  82.    End
  83.    Begin VB.Label Label1 
  84.       BackStyle       =   0  'Transparent
  85.       Caption         =   "S"
  86.       BeginProperty Font 
  87.          Name            =   "Franklin Gothic Book"
  88.          Size            =   48
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       Height          =   975
  96.       Left            =   0
  97.       TabIndex        =   0
  98.       Top             =   840
  99.       Width           =   495
  100.    End
  101. End
  102. Attribute VB_Name = "Form2"
  103. Attribute VB_GlobalNameSpace = False
  104. Attribute VB_Creatable = False
  105. Attribute VB_PredeclaredId = True
  106. Attribute VB_Exposed = False
  107. Sub Pause(interval)
  108.  
  109.  
  110.     'pause/waits for "interval" seconds
  111.     Current = Timer
  112.     Do While Timer - Current < Val(interval)
  113.         DoEvents
  114.         Loop
  115.  
  116.  
  117.     End Sub
  118.  
  119. Private Sub Command1_Click()
  120.  
  121.     Timer1.Enabled = True
  122.  
  123. End Sub
  124.  
  125. Private Sub Form_Load()
  126.  
  127.     Timer1.Enabled = False
  128.  
  129. End Sub
  130.  
  131. Private Sub Timer1_Timer()
  132.  
  133.     Label1.Left = Label1.Left + 150
  134.   
  135.    
  136.         If Label1.Top = 840 And Label1.Left = 1080 Then
  137.         
  138.             Pause (5)
  139.         
  140.         End If
  141.         
  142.     '__________________________________________________________________
  143.     'Next letter...
  144.     '__________________________________________________________________
  145.     
  146.     Label2.Left = Label2.Left + 150
  147.     
  148.     
  149.         If Label2.Left = 1560 And Label2.Top = 840 Then
  150.         
  151.             Pause (5)
  152.             
  153.         End If
  154.         
  155.     '__________________________________________________________________
  156.     'Next letter...
  157.     '__________________________________________________________________
  158.     
  159.     Label3.Left = Label3.Left - 150
  160.     
  161.     
  162.         If Label3.Left = 2040 And Label3.Top = 840 Then
  163.         
  164.             Pause (5)
  165.             
  166.         End If
  167.         
  168.     '__________________________________________________________________
  169.     'Next letter...
  170.     '__________________________________________________________________
  171.     
  172.     Label4.Left = Label4.Left - 150
  173.    
  174.             
  175.         If Label4.Left = 2520 And Label4.Top = 840 Then
  176.         
  177.             Pause (5)
  178.             
  179.         End If
  180.                                     
  181. End Sub
  182.